home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tjockdem.arc / DEMO4.ARC / FASTDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-03  |  766b  |  25 lines
  1. Program FastTTT5_Demo_1;
  2.  
  3. Uses Crt, FastTTT5;
  4.  
  5. var Ch : char;
  6.  
  7. begin
  8.     ClearText(1,1,80,25,white,black);
  9.     WriteCenter(1,yellow,black,'TechnoJocks');
  10.     WriteCenter(2,yellow,black,'Turbo');
  11.     WriteCenter(3,yellow,black,'Toolkit');
  12.     VertLine(32,1,3,yellow,black,1);
  13.     VertLine(49,1,3,yellow,black,1);
  14.     Box(1,5,30,10,white,blue,1);
  15.     WriteBetween(1,30,6,white,black,'Hollow Box');
  16.     GrowFBox(50,5,80,10,white,blue,2);
  17.     WriteAt(52,9,white,blue,'Filled Box');
  18.     Attrib(20,15,60,19,yellow,blue);
  19.     PlainWrite(11,17,'Written by PlainWrite');
  20.     ColWrite(50,17,'Written by ColWrite');
  21.     HorizLine(1,80,24,lightblue,black,1);
  22.     ClickWrite(1,25,lightgreen,black,'That''s all folks');
  23.     Ch := Readkey;
  24.     clrscr;
  25. end.